program NewTheme;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  arrInt = array [0..99] of Integer;

var
  mass: array [0..99] of Integer;
  mas: ^arrInt;
  i: Integer;

begin
  New(mas);
  mas:=@mass;
  for i:=1 to 100 do
  begin
    mas^[i]:=i;
  end;
  Dispose(mas);
end.
